-- card: 3977 from stack: in
-- bmap block id: 4267
-- flags: 0000
-- background id: 3525
-- name: glossary
----- HyperTalk script -----
on idle
  get the scroll of card field "word"
  set the scroll of card field "definition" to it *4
  set the hilite of card button "No match." to true
end idle



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=435 top=128 right=166 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=127 top=173 right=204 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 26
-- part name: word
----- HyperTalk script -----
on mousewithin
  get the scroll of card field "word"
  set the scroll of card field "definition" to it *4
end mousewithin


-- part 12 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=127 top=203 right=309 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 26
-- part name: definition


-- part 13 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=470 top=173 right=312 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=34 top=208 right=236 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set visible of card field "about" to not the visible of card field "about"

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=30 top=243 right=280 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual dissolve
  go to card id 3301
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=26 top=174 right=201 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find...
----- HyperTalk script -----
on mouseUp
  ask "Input the dwarf's name:" with "OK"
  find word it in field "word"
  if the result is not empty then
    show card button "no match."
    wait 2 seconds
    hide card button "no match."
  end if
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: E002
-- rect: left=29 top=284 right=309 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No match.
----- HyperTalk script -----
on mouseUp
  ask "Input the word:" with "OK"
  find word it in field "word"
  if the result is not empty then
    show card button "no match."
    wait 2 seconds
    hide card button "no match."
  end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=81 top=205 right=236 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual dissolve
  go next
end mouseUp



-- part 24 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=254 top=175 right=202 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 15 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=127 top=173 right=308 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: about
----- HyperTalk script -----
on mouseup
  set the visible of card field "about" to not the visible of card field "about"
end mouseup



-- part contents for card part 11
----- text -----
BASHFUL           PINKO
DOC                    DEGREE
DOPEY
GRUMPY                  GRUMPY'S
HAPPY               LAUGHING
SLEEPY            UNCONSCIOUS
SNEEZY            NOSEBLEEDS

-- part contents for card part 12
----- text -----

The shy one. Doesn't speak,
even when spoken to. Very
secretive, possibly a communist.

The connection. Very vague about
where he attended medical school.
Dispenses prescriptions to dwarves.

The supposedly stupid one. Could
be an act, however: his phone bill
indicates calls to Turkey.

The obnoxious one. Snaps at the
slightest provocation. Probably due
to ingestion of too many diet sodas.

The stoned one. Impossible to make
any headway with him. Never very
far from Doc. Giggles incessantly.

Another dwarf in total thrall of
Doc. However in this case prefers
barbituates. Snores very loudly.

The sniffly one. Large quantities of
white powder kept under his bed.
Close friend of Snow White.



-- part contents for card part 15
----- text -----
Lock and scroll is an example of linked fields as they might be implemented in a glossary or other Hypertext reference. As you scroll through the word list, the definitions change accordingly. You can also input the word from the keyboard, or as you'll see on the next card, click on the word from any other text field.

Click on this field to return to the utility.